home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / utilities / file / ro_v091.lha / RO / Install / RO-Install < prev   
Encoding:
Text File  |  1995-01-22  |  5.4 KB  |  285 lines
  1. ; $VER: RO-Install 0.91 (23.1.95)
  2. ; Original RO Installer script by Juergen Schubert <juergen@desert.sub.org>
  3. ; Modified by Oliver Rummeyer, inspired by MagicCX-Install ©1994 Kai Iske.
  4.  
  5. ;========================================================
  6. ; Set Strings
  7.  
  8. (set #nokick
  9. (cat "You must be using Kickstart 2.04 to use RO. Aborting!"
  10. ))
  11.  
  12. (set #nomui
  13. (cat "You need version 2.3 of MUI or better. Aborting!"
  14. ))
  15.  
  16. (set #startmsg
  17. (cat "\n\RO installation script.\n"
  18.      "This script installs RO on your Amiga.\n\n"
  19.      "Read the Documentation files for\n"
  20.      "more information on the distribution.\n"
  21.      "RO © 1994 Oliver Rummeyer\n"
  22.      "All rights reserved."
  23. ))
  24.  
  25. (set #icons "Which type of icons would you like to install")
  26. (set #magicwbicons "MagicWB-Style Icons; 8 colors")
  27. (set #classicicons "Classic-WB-Style Icons; 4 colors")
  28. (set #noicons "No Icons")
  29.  
  30. (set #install "\n\nInstalling RO to\n\n")
  31. (set #drawer
  32. (cat "In which disk or drawer should RO be installed?\n"
  33.      "(A drawer \"RO\" will be created there)"
  34. ))
  35.  
  36. (set #update
  37. (cat "A drawer \"RO\" already exists in the specified disk "
  38.      "or drawer. You should make a backup of your prefs "
  39.      "file before you continue the installation procedure.\n\n"
  40.      "Should I continue the installation procedure?"
  41. ))
  42.  
  43. (set #lang "Which languages should be installed?")
  44. (set #own
  45. (cat    "\n\nIf you want to create own versions of\n"
  46.     "the catalogs please have a look at the\n"
  47.     "distributions Locale directory. You will\n"
  48.     "find the .ct and .cd files there.\n"
  49. ))
  50.  
  51. (set #install-docs "Would you like to install RO's documentation?")
  52. (set #doc "Which documentation formats would you like to install?")
  53. (set #doclang "Which language do you prefer for the documentation?")
  54.  
  55. (set #install-rexx "Would you like to install the arexx examples?")
  56. (set #drawer-rexx "In which disk or drawer should the arexx examples be installed?")
  57.  
  58. (set #exitmsg "Have fun using RO!\nAnd don`t forget it`s Shareware!")
  59.  
  60. ;========================================================
  61.  
  62. (if (< (/ (getversion) 65536) 37)
  63. (
  64.     (abort #nokick)
  65. ))
  66.  
  67. (if (= (exists "LIBS:muimaster.library" (noreq)) 1)
  68. (
  69.     (if (< (/ (getversion "LIBS:muimaster.library") 65536) 10)
  70.     (
  71.         (abort #nomui)
  72.     ))
  73. )
  74. (
  75.     (abort #nomui)
  76. ))
  77.  
  78. ;=========================================================
  79.  
  80. (message #startmsg)
  81.  
  82. (complete 0)
  83.  
  84. ;=========================================================
  85.  
  86. (set IconType
  87.     (askchoice
  88.         (prompt #icons)
  89.         (help @askchoice-help)
  90.         (choices
  91.             #magicwbicons
  92.             #classicicons
  93.             #noicons
  94.         )
  95.         (default 0)
  96.     )
  97. )
  98.  
  99. (complete 15)
  100.  
  101. ;=========================================================
  102.  
  103. (set TargetDir
  104.     (askdir
  105.         (prompt #drawer)
  106.         (default "SYS:Tools")
  107.         (help @askdir-help)
  108.     )
  109. )
  110.  
  111. (set DestDir (tackon TargetDir "RO"))
  112. (set @default-dest DestDir)
  113.  
  114. (if (= (exists DestDir) 2)
  115.    (message #update)
  116. )
  117.  
  118. (complete 30)
  119.  
  120. ;=========================================================
  121.  
  122. (makedir DestDir
  123.     (prompt #install DestDir)
  124. )
  125.  
  126. (if (= IconType 0)
  127.     (
  128.         (copyfiles
  129.             (source "")
  130.             (choices "/Icons/8col/RO.info" "/Icons/8col/RO.guide.info")
  131.             (dest DestDir)
  132.         )
  133.         (copyfiles
  134.             (source "/Icons/8col/Drawer.info")
  135.             (dest TargetDir)
  136.             (newname "RO.info")
  137.         )
  138.     )
  139. )
  140.  
  141. (if (= IconType 1)
  142. (
  143.        (copyfiles
  144.            (source "")
  145.         (choices "/Icons/4col/RO.info" "/Icons/4col/RO.guide.info")
  146.            (dest DestDir)
  147.     )
  148.     (copyfiles
  149.         (source "/Icons/4col/Drawer.info")
  150.         (dest TargetDir)
  151.         (newname "RO.info")
  152.     )
  153. )
  154. )
  155.  
  156. (copyfiles
  157.     (help @copyfiles-help)
  158.     (source "")
  159.     (choices "/Binary/RO" "/Binary/RO.prefs" )
  160.     (dest DestDir)
  161.     (files)
  162. )
  163.  
  164. (complete 45)
  165.  
  166. ;========================================================
  167. ; Install Locale
  168.  
  169. (if (AND (NOT (= (getassign "Locale") "")) (exists "libs:locale.library"))
  170. (
  171.  
  172.     (set Lang
  173.         (askoptions
  174.             (prompt #lang)
  175.             (help @askoptions-help)
  176.             (choices "Deutsch" "Italiano")
  177.             (default 0)
  178.         )
  179.     )
  180.  
  181.     (if (IN Lang 0)
  182.         (copyfiles
  183.             (source "")
  184.             (choices "/Locale/Catalogs/Deutsch/ro.catalog")
  185.             (dest "LOCALE:Catalogs/Deutsch")
  186.         )
  187.     )
  188.  
  189.     (if (IN Lang 1)
  190.         (copyfiles
  191.             (source "")
  192.             (choices "/Locale/Catalogs/Italiano/ro.catalog")
  193.             (dest "LOCALE:Catalogs/Italiano")
  194.         )
  195.     )
  196.  
  197.     (message #own)
  198. ))
  199.  
  200. (complete 60)
  201.  
  202. ;========================================================
  203. ; Install ARexx Scripts
  204.  
  205. (if (askbool (help @askbool-help) (prompt #install-rexx))
  206. (
  207.     (set RexxDir
  208.     (askdir
  209.         (prompt #drawer-rexx)
  210.         (default "REXX:")
  211.         (help @askdir-help)
  212.     ))
  213.  
  214.        (copyfiles
  215.            (source "")
  216.         (choices "/ARexx/Action.RO" "/ARexx/AddArc.RO" "/ARexx/Iconify.RO" "/ARexx/LoadDir.RO")
  217.            (dest RexxDir)
  218.     )
  219.  
  220. ))
  221.  
  222. (complete 75)
  223.  
  224. ;=========================================================
  225. ; Install Documentation
  226.  
  227. (if (askbool (help @askbool-help) (prompt #install-docs))
  228. (
  229.  
  230.     (set doctype
  231.         (askoptions
  232.             (prompt #doc)
  233.             (help @askoptions-help)
  234.             (choices "AmigaGuide ® V39")
  235.             (default 1)
  236.         )
  237.     )
  238.  
  239.     (if (= doctype 1)
  240.     (
  241.  
  242.         (set doclang
  243.             (askchoice
  244.                 (prompt #doclang)
  245.                 (help @askchoice-help)
  246.                 (choices
  247.                     "German"
  248.                     "English"
  249.                 )
  250.                 (default 1)
  251.             )
  252.         )
  253.  
  254.         (if (= doclang 0)
  255.             (copyfiles
  256.                 (source "/Docs/RO.guide,deutsch")
  257.                 (dest DestDir)
  258.                 (newname "RO.guide")
  259.             )
  260.         )
  261.  
  262.         (if (= doclang 1)
  263.             (copyfiles
  264.                 (source "/Docs/RO.guide,english")
  265.                 (dest DestDir)
  266.                 (newname "RO.guide")
  267.             )
  268.         )
  269.  
  270.     ))
  271.  
  272.     (if (= doctype 0)
  273.         (delete    (tackon DestDir "RO.guide.info"))
  274.     )
  275.  
  276. )
  277. (
  278.     (delete    (tackon DestDir "RO.guide.info"))
  279. ))
  280.  
  281. (complete 100)
  282.  
  283. ;==========================================================
  284. (exit #exitmsg)
  285.